################################################################################ 
#
# Replication code for:
# Empathy-based counterspeech can reduce racist hate speech
# in a social media field experiment
#
# PNAS 2021
# 
# 
# Additional Unpublished Analysis
# --------------------------------
# 
# We retrospectively retrieve the replies to the messages from our "treatment" accounts
# In total, 11 users replied to the bot.
# 
################################################################################ 


rm(list = ls())

################################################################################ 
#  LIBRARIES
################################################################################ 

library(dplyr)
library(tidyr)
library(readr)
library(estimatr)

################################################################################ 
#   DATA AND FOLDER
################################################################################ 


wd = dirname(dirname(dirname(rstudioapi::getActiveDocumentContext()$path)))
wd_res = paste0(wd, '/results')
wd_data =  paste0(wd, '/data')


##############

setwd(wd_data)

data = read.csv('auxiliary/fullsample_interactions.csv') %>% as.data.frame()

table(data$mentions_sum)

